;; Tests for compiling and running woof code.
;;

(module all-tests mzscheme
  (require (lib "list.ss" "srfi" "1"))
  (require (lib "34.ss" "srfi")) ;provides exception handling
  (require (lib "defmacro.ss"))
  (require (lib "kw.ss"))
  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2 1)))
  (require (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2)))
  (require (planet "read.ss" ("ryanc" "scripting.plt" 1))) ;provides read-all
  (require "woof-machine.scm")
  (require "woof-kernel.scm")
  (require "compile-and-run-test.scm")

  (define run-all-tests
    (lambda ()
      (run-kernel-tests)
      (run-machine-tests)
      (run-compile-and-run-tests)))

  (run-all-tests)
  
;;      (test/text-ui compile-and-run-tests)))

  (provide (all-defined))

  )
